home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 64 / MOBICLIC 64.ISO / DATA / AIDE / AIDE00.dir / 00009_Script_Script_Aide < prev    next >
Text File  |  2004-02-03  |  1KB  |  49 lines
  1. global gL_Zap
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   delta =  p_Nodepiste - gL_Zap[21]
  9.   p_cettePiste.locZ = sprite(gL_Zap[21]).locZ + delta
  10. end
  11. ----------------------------------- 
  12. on mouseEnter me
  13.   if the pauseState = 1 then exit
  14.   if p_cettePiste.blend < 100 then exit
  15.   cursor 280
  16.   p_cettePiste.member = p_nom_Acteur&"_R"
  17.   updateStage
  18. end
  19. ----------------------------------- 
  20. on mouseWithin me
  21.   if the pauseState = 1 then exit
  22.   if p_cettePiste.blend < 100 then exit
  23.   cursor 280
  24. end
  25. ---------------------------------
  26. on mouseLeave me
  27.   if the pauseState = 1 then exit
  28.   cursor -1
  29.   if p_cettePiste.blend < 100 then exit
  30.   p_cettePiste.member = p_nom_Acteur
  31.   updateStage
  32.   coupeson(2)
  33. end
  34. ----------------------------------- 
  35. on mouseUp me
  36.   if the pauseState = 1 then exit
  37.   cursor -1
  38.   if p_cettePiste.blend < 100 then exit
  39.   coupeson(2)
  40.   case(p_nom_Acteur) of
  41.     "BTON_RETOUR_DAIDE":
  42.       put "a"
  43.       local_back(me)
  44.     "BTON_RACCOURCIS":
  45.       go to "RACCOURCIS"
  46.   end case
  47. end
  48. ----------------------------------- 
  49.